(use test)

(define a 3)
(define b (+ a 1))

(test-group "expressions evaluation"
            (test 10 10)
            (test 12 (+ 5 3 4))
            (test 8 (- 9 1))
            (test 3 (/ 6 2))
            (test 6 (+ (* 2 4) (- 4 6)))
            (test 19 (+ a b (* a b)))
            (test-assert (not (= a b)))
            (test b (if (and (> b a) (< b (* a b))) b a))
            (test 16 (cond ((= a 4) 6) ((= b 4) (+ 6 7 a)) (else 25)))
            (test 6 (+ 2 (if (> b a) b a)))
            (test 16  (* (cond ((> a b) a) ((< a b) b) (else -1)) (+ a 1)))

 )